Stuart Little 2 Press Kit/Stuart Little 2 Press Kit.iso/pc/SL2.dxr/Internal_10_QT_MUI.ls

Text File | 2002-06-24 | 945 b | 31 lines

on qtInstall me
  zel = the moviePath & "QT\QT_Installer"
  zed = the moviePath & "QT:QT_InstallMac"
  if the platform contains "Mac" then
    quick = baOpenFile(zed & ":QuicktimeInstaller", "normal")
    quit()
  else
    quick = baOpenFile(zel & "\QuicktimeInstaller.exe", "Normal")
    quit()
  end if
end

on enterFrame
  muiobject = new(xtra("MUI"))
  beep()
  alertpropertieslist = [#Buttons: #YesNo, #default: 1, #title: "QuickTime Update", #message: "Your version of QuickTime needs to be upgraded to QuickTime 5.0 in order for the included files to play properly. Please choose 'Recommended' on the QuickTime Installer. This program will need to be restarted after installation.", #movable: 1, #xPosition: -1, #yPosition: -1, #Icon: #question]
  answer = alert(muiobject, alertpropertieslist)
  muiobject = 0
  case answer of
    1:
      qtInstall()
    2:
      go("Star")
  end case
  quick = 0
end

on exitFrame
  go(the frame)
end